home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / toku2 / MeedioHouseBot[1].2.20.setup.exe / {app} / Config / Scripts / SampleScript.vb
Encoding:
Text File  |  2002-09-26  |  1.6 KB  |  48 lines
  1. ' ========================================================================
  2. ' Sample VBScript showing all possible functions.
  3. ' Many of the functions are commented out due to the fact that the
  4. ' items that are referenced are not included in the default system
  5. ' configuration database.
  6. ' ========================================================================
  7.  
  8. MsgBox "The day of the week is " & GetPropertyValue("System Time.Day Of Week")
  9.  
  10. For nLoop = 1 To 5
  11.     szTimeAndDate = GetPropertyValue( "System Time.TimeAndDate" )
  12.     TraceMessage( "System Time and Date = " & szTimeAndDate )
  13.     MsgBox "System Time and Date = " & szTimeAndDate
  14.                                                     
  15.     Sleep( 1000 )
  16. Next                
  17.         
  18. 'ExecuteTask( "Test Task" )
  19.  
  20. 'If (IsTaskRunning("Test Task") = True) Then
  21. '    MsgBox "Stopping Task"
  22. '    StopTask( "Test Task" )    
  23. 'End If
  24.  
  25. 'MsgBox "Test Mode is " & GetModeState("Test Mode")
  26.  
  27. 'SetModeState "Test Mode", "Inactive"
  28.  
  29. 'SetPropertyValue "Test Lamp.Power State", "On"
  30.  
  31. 'If (GetPropertyValue("Test Lamp.Power State") = "Off") Then
  32. '    ' Using SetPropertyValue with return code checking.
  33. '    If (SetPropertyValue( "Test Lamp.Power State", "On" ) = False) Then
  34. '        TraceErrorMessage( "Setting Test Lamp.Power State to On Failed" )
  35. '    Else
  36. '        TraceErrorMessage( "Setting Test Lamp.Power State to On" )
  37. '    End If
  38. 'Else
  39. '    If (SetPropertyValue( "Test Lamp.Power State", "Off" ) = False) Then
  40. '        TraceErrorMessage( "Setting Test Lamp.Power State to Off Failed" )
  41. '    Else
  42. '        TraceErrorMessage( "Setting Test Lamp.Power State to Off" )
  43. '    End If                                                    
  44. 'End If    
  45.  
  46.     
  47. MsgBox "Test Script Complete!"
  48.